home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue46 / construc / ClientU.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-05-06  |  1.8 KB  |  63 lines
  1. unit ClientU;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Db, DBClient, MConnect, Grids, DBGrids, ExtCtrls;
  8.  
  9. type
  10.   TClientForm = class(TForm)
  11.     DCOMConnection1: TDCOMConnection;
  12.     NestedClientDataset: TClientDataSet;
  13.     NestedClientDatasetCustNo: TFloatField;
  14.     NestedClientDatasetCompany: TStringField;
  15.     NestedClientDatasetAddr1: TStringField;
  16.     NestedClientDatasetAddr2: TStringField;
  17.     NestedClientDatasetCity: TStringField;
  18.     NestedClientDatasetState: TStringField;
  19.     NestedClientDatasetZip: TStringField;
  20.     NestedClientDatasetCountry: TStringField;
  21.     NestedClientDatasetPhone: TStringField;
  22.     NestedClientDatasetFAX: TStringField;
  23.     NestedClientDatasetTaxRate: TFloatField;
  24.     NestedClientDatasetContact: TStringField;
  25.     NestedClientDatasetLastInvoiceDate: TDateTimeField;
  26.     NestedClientDatasetOrders: TDataSetField;
  27.     DBGrid1: TDBGrid;
  28.     NestedDataSource: TDataSource;
  29.     DBGrid2: TDBGrid;
  30.     Panel1: TPanel;
  31.     ClientDataSet: TClientDataSet;
  32.     ClientDataSource: TDataSource;
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure NestedClientDatasetReconcileError(DataSet: TClientDataSet;
  35.       E: EReconcileError; UpdateKind: TUpdateKind;
  36.       var Action: TReconcileAction);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   ClientForm: TClientForm;
  45.  
  46. implementation
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TClientForm.FormCreate(Sender: TObject);
  51. begin
  52.   ClientDataSet.Open
  53. end;
  54.  
  55. procedure TClientForm.NestedClientDatasetReconcileError(
  56.   DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  57.   var Action: TReconcileAction);
  58. begin
  59.   Action := HandleReconcileError(DataSet, UpdateKind, E);
  60. end;
  61.  
  62. end.
  63.